home *** CD-ROM | disk | FTP | other *** search
/ Everything For A Hacker / 19990506-[HACK].iso / SECURE / CRYPT / GOST.ZIP / GAMMALE.INC < prev    next >
Text File  |  1995-01-27  |  1KB  |  47 lines
  1. ;----------------------------------------------------
  2. ; ê¡ΓÑαΣÑ⌐ß¡δ⌐  ¼«ñπ½∞  ¿º¼Ñα¿Γѽ∩  íδßΓα«ñÑ⌐ßΓó¿∩.
  3. ; öπ¡¬µ¿∩ gammaLE.
  4. ; æ«ßΓáó¿½ Ç.₧.é¿¡«¬πα«ó, ú.î«ß¬óá, ∩¡óáα∞ 1995 ú.
  5. ; æó«í«ñ¡«Ñ ¿ß»«½∞º«óá¡¿Ñ ¿ ¬«»¿α«óá¡¿Ñ.
  6. ;----------------------------------------------------
  7. ; Ä»αÑñѽѡ¿Ñ τ¿ß½á ó맮ó«ó ΓÑßΓ¿απѼ«⌐ Σπ¡¬µ¿¿
  8.         calls=  20h
  9.  
  10. ; îá¬α«ß »«ñú«Γ«ó¬¿ ó맮ó«ó
  11. Initialise MACRO
  12.      extrn   gammaLE:proc
  13.     mov    DX,offset @code:InitMes
  14.     mov    AH,09h
  15.     int    21h
  16. ENDM
  17.  
  18. ; è«ñ, ß¬«α«ßΓ∞ ¬«Γ«α«ú« ¿º¼Ñα∩ÑΓß∩
  19. Testing MACRO
  20.         mov     AX,1000h
  21.         push    AX
  22.         push    CS
  23.         mov     AX,offset @data:area
  24.         push    AX
  25.         push    CS
  26.         mov     AX,offset @data:cht
  27.         push    AX
  28.         push    CS
  29.         mov     AX,offset @data:syn
  30.         push    AX
  31.         push    CS
  32.         mov     AX,offset @data:key
  33.         push    AX
  34.     call    gammaLE
  35.     add     SP,2*9
  36. ENDM
  37.  
  38. ; Ä»αÑñѽѡ¿Ñ ñá¡¡δσ
  39. DefineData MACRO
  40. key     dd      32      DUP (0)
  41. cht     db      1024    DUP (0)
  42. syn     dd      2       DUP (0)
  43. area    db      8000h   DUP (0)
  44. InitMes db      "çáΦ¿Σα«óá¡¿Ñ 1 MÑúáíá⌐Γá "
  45.     db    "úá¼¼¿α«ó᡿Ѽ ß Äæ: $"
  46. ENDM
  47.